﻿Imports Runa.Helper.Extension

Public Class ScreenElementBase

    Public Property Name() As String

    Public Property Location() As New Vector2
    Public Property Size() As New Vector2

    Public Property Anchor() As Point

    Public Event Click(ByVal sender As Object, ByVal e as EventArgs)

    Public Sub New()
        Me.Name = Me.GetType().Assembly.FullName.RightOfLastChar(".")
    End Sub

    Public Sub New(ByVal name As String)
        Me.Name = name
    End Sub

End Class